COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "CAMTST"
C00003 ENDMK
C⊗;
BEGIN "CAMTST"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
DEFINE HI=40;

WHILE TRUE DO
   BEGIN
   EXTERNAL INTEGER PROCEDURE TVRAW(INTEGER CAM,YEDG,XEDG;
                             REFERENCE INTEGER PIC;
                             INTEGER BCLIP,TCLIP,NTRY);
   INTEGER ARRAY T[0:PIXDIM(HI,200,4)];
   INTEGER NRT,YE,XE,FOO,I;
   STRING ES;

   MAKPIX(HI,200,4,T[0]);

   OUTSTR("YEDGE:"); ES←INCHWL; YE←INTSCAN(ES,FOO);

   while inchrs=-1 DO TVRAW(2,YE,1,T[0],1,7,10);

   END;

END;